par(mar=c(4,3,2,1), mgp=c(2, .5, 0), mfrow=c(1,1), cex.lab=.8, cex.axis=.8)

plot(av.ACME.cs, 1,  axes=F,  ylab="", xlim=c(-3,3), ylim=c(.5, 3.5), main="", pch=17, xlab="ACME of Permitting a Demonstration on Feeling Thermometer Scores")
grid(lty=1, lwd=.5, col="lightgrey")
abline(v=0, col="grey")
axis(1, col="white")
axis(3, col="white")
points(av.ACME.cs, 1, pch=17, cex=1.5)
points(av.ACME.cd, 2, pch=17, cex=1.5)
points(av.ACME.cr, 3, pch=17, cex=1.5)

segments(av.ACME.cs-1.96*av.ACME.se.cs, 1, av.ACME.cs+1.96*av.ACME.se.cs, 1)
segments(av.ACME.cd-1.96*av.ACME.se.cd, 2, av.ACME.cd +1.96*av.ACME.se.cd, 2)
segments(av.ACME.cr-1.96*av.ACME.se.cr, 3, av.ACME.cr+1.96*av.ACME.se.cr, 3)

text(-3, 1.2, "Secular Christians", pos=4, cex=.8)
text(-3, 2.2, "Devout Christians", pos=4, cex=.8)
text(-3, 3.2, "Radical Christians", pos=4, cex=.8)
